home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Borland / Borland C++ For TASM / USRGUIDE.PAK / VAREXCH.PAS < prev   
Pascal/Delphi Source File  |  1996-02-21  |  1KB  |  43 lines
  1. { Turbo Assembler example. Copyright (c) 1993 By Borland International, Inc. }
  2.  
  3. { Use with varexch.asm }
  4.  
  5. program TextExchange;
  6.  
  7. type
  8.   EmployeeRecord = record
  9.                      Name    : string[30];
  10.                      Address : string[30];
  11.                      City    : string[15];
  12.                      State   : string[2];
  13.                      Zip     : string[10];
  14.                    end;
  15. var
  16.   OldEmployee, NewEmployee : EmployeeRecord;
  17.  
  18. procedure Exchange(var Var1,Var2; Count : Word); far; external;
  19. {$L VAREXCH.OBJ}
  20. begin
  21.   with OldEmployee do
  22.   begin
  23.     Name := 'John Smith';
  24.     Address := '123 F Street';
  25.     City := 'Scotts Valley';
  26.     State := 'CA';
  27.     Zip := '90000-0000';
  28.   end;
  29.   with NewEmployee do
  30.   begin
  31.     Name := 'Mary Jones';
  32.     Address := '9471 41st Avenue';
  33.     City := 'New York';
  34.     State := 'NY';
  35.     Zip := '10000-1111';
  36.   end;
  37.   Writeln('Before: ',OldEmployee.Name,'  ',NewEmployee.Name);
  38.   Exchange(OldEmployee,NewEmployee,sizeof(OldEmployee));
  39.   Writeln('After:  ',OldEmployee.Name,'  ',NewEmployee.Name);
  40.   Exchange(OldEmployee,NewEmployee,sizeof(OldEmployee));
  41.   Writeln('After:  ',OldEmployee.Name,'  ',NewEmployee.Name);
  42. end.
  43.